Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wtrack / wtrack.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-12-05 | 16.9 KB | 616 lines

VERSION 2.00 Begin Form WTrack Caption = "Wumpus Tracker" ClientHeight = 5100 ClientLeft = 945 ClientTop = 1365 ClientWidth = 6000 Height = 5505 Left = 885 LinkMode = 1 'Source LinkTopic = "Form1" ScaleHeight = 5100 ScaleWidth = 6000 Top = 1020 Width = 6120 Begin CommandButton QuitBtn Caption = "&Quit" Height = 255 Left = 4080 TabIndex = 65 Top = 4680 Width = 1815 End Begin CommandButton ClrBtn Caption = "&Clear Tracker" Height = 255 Left = 360 TabIndex = 64 Top = 4680 Width = 1815 End Begin TextBox Hazards Height = 285 Index = 19 Left = 4680 TabIndex = 59 Text = "Text2" Top = 3480 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 19 Left = 3480 TabIndex = 40 Text = "Text1" Top = 3480 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 9 Left = 1680 TabIndex = 49 Text = "Text2" Top = 3480 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 9 Left = 480 TabIndex = 30 Text = "Text1" Top = 3480 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 18 Left = 4680 TabIndex = 58 Text = "Text2" Top = 3120 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 18 Left = 3480 TabIndex = 39 Text = "Text1" Top = 3120 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 8 Left = 1680 TabIndex = 48 Text = "Text2" Top = 3120 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 8 Left = 480 TabIndex = 29 Text = "Text1" Top = 3120 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 17 Left = 4680 TabIndex = 57 Text = "Text2" Top = 2760 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 17 Left = 3480 TabIndex = 38 Text = "Text1" Top = 2760 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 7 Left = 1680 TabIndex = 47 Text = "Text2" Top = 2760 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 7 Left = 480 TabIndex = 28 Text = "Text1" Top = 2760 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 16 Left = 4680 TabIndex = 56 Text = "Text2" Top = 2400 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 16 Left = 3480 TabIndex = 37 Text = "Text1" Top = 2400 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 6 Left = 1680 TabIndex = 46 Text = "Text2" Top = 2400 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 6 Left = 480 TabIndex = 27 Text = "Text1" Top = 2400 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 15 Left = 4680 TabIndex = 55 Text = "Text2" Top = 2040 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 15 Left = 3480 TabIndex = 36 Text = "Text1" Top = 2040 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 5 Left = 1680 TabIndex = 45 Text = "Text2" Top = 2040 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 5 Left = 480 TabIndex = 26 Text = "Text1" Top = 2040 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 14 Left = 4680 TabIndex = 54 Text = "Text2" Top = 1680 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 14 Left = 3480 TabIndex = 35 Text = "Text1" Top = 1680 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 4 Left = 1680 TabIndex = 44 Text = "Text2" Top = 1680 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 4 Left = 480 TabIndex = 25 Text = "Text1" Top = 1680 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 13 Left = 4680 TabIndex = 53 Text = "Text2" Top = 1320 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 13 Left = 3480 TabIndex = 34 Text = "Text1" Top = 1320 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 3 Left = 1680 TabIndex = 43 Text = "Text2" Top = 1320 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 3 Left = 480 TabIndex = 24 Text = "Text1" Top = 1320 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 12 Left = 4680 TabIndex = 52 Text = "Text2" Top = 960 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 12 Left = 3480 TabIndex = 33 Text = "Text1" Top = 960 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 2 Left = 1680 TabIndex = 42 Text = "Text2" Top = 960 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 2 Left = 480 TabIndex = 23 Text = "Text1" Top = 960 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 11 Left = 4680 TabIndex = 51 Text = "Text2" Top = 600 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 11 Left = 3480 TabIndex = 32 Text = "Text1" Top = 600 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 1 Left = 1680 TabIndex = 41 Text = "Text2" Top = 600 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 1 Left = 480 TabIndex = 22 Text = "Text1" Top = 600 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 10 Left = 4680 TabIndex = 50 Text = "Text2" Top = 240 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 10 Left = 3480 TabIndex = 31 Text = "Text1" Top = 240 Width = 1095 End Begin TextBox Hazards Height = 285 Index = 0 Left = 1680 TabIndex = 2 Text = "Text2" Top = 240 Width = 1095 End Begin TextBox ToRooms Height = 285 Index = 0 Left = 480 TabIndex = 1 Text = "Text1" Top = 240 Width = 1095 End Begin Label Label4 Caption = "Hazards &Near or (P)resent" Height = 495 Left = 4680 TabIndex = 63 Top = 3960 Width = 1215 End Begin Label Label2 Caption = "Goes To Rooms" Height = 495 Index = 1 Left = 3480 TabIndex = 61 Top = 3960 Width = 1095 End Begin Label Label3 Caption = "Hazards &Near or (P)resent" Height = 495 Left = 1560 TabIndex = 62 Top = 3960 Width = 1215 End Begin Label Label2 Caption = "Goes To Rooms" Height = 495 Index = 0 Left = 480 TabIndex = 60 Top = 3960 Width = 1095 End Begin Label Label1 Caption = "20" Height = 255 Index = 19 Left = 3120 TabIndex = 21 Top = 3480 Width = 255 End Begin Label Label1 Caption = "10" Height = 255 Index = 12 Left = 120 TabIndex = 14 Top = 3480 Width = 255 End Begin Label Label1 Caption = "19" Height = 255 Index = 18 Left = 3120 TabIndex = 20 Top = 3120 Width = 255 End Begin Label Label1 Caption = "9" Height = 255 Index = 11 Left = 120 TabIndex = 13 Top = 3120 Width = 255 End Begin Label Label1 Caption = "18" Height = 255 Index = 17 Left = 3120 TabIndex = 19 Top = 2760 Width = 255 End Begin Label Label1 Caption = "8" Height = 255 Index = 10 Left = 120 TabIndex = 12 Top = 2760 Width = 255 End Begin Label Label1 Caption = "17" Height = 255 Index = 16 Left = 3120 TabIndex = 18 Top = 2400 Width = 255 End Begin Label Label1 Caption = "7" Height = 255 Index = 9 Left = 120 TabIndex = 11 Top = 2400 Width = 255 End Begin Label Label1 Caption = "16" Height = 255 Index = 15 Left = 3120 TabIndex = 17 Top = 2040 Width = 255 End Begin Label Label1 Caption = "6" Height = 255 Index = 8 Left = 120 TabIndex = 10 Top = 2040 Width = 255 End Begin Label Label1 Caption = "15" Height = 255 Index = 3 Left = 3120 TabIndex = 5 Top = 1680 Width = 255 End Begin Label Label1 Caption = "5" Height = 255 Index = 7 Left = 120 TabIndex = 9 Top = 1680 Width = 255 End Begin Label Label1 Caption = "14" Height = 255 Index = 2 Left = 3120 TabIndex = 4 Top = 1320 Width = 255 End Begin Label Label1 Caption = "4" Height = 255 Index = 6 Left = 120 TabIndex = 8 Top = 1320 Width = 255 End Begin Label Label1 Caption = "13" Height = 255 Index = 1 Left = 3120 TabIndex = 3 Top = 960 Width = 255 End Begin Label Label1 Caption = "3" Height = 255 Index = 5 Left = 120 TabIndex = 7 Top = 960 Width = 255 End Begin Label Label1 Caption = "12" Height = 255 Index = 13 Left = 3120 TabIndex = 15 Top = 600 Width = 255 End Begin Label Label1 Caption = "2" Height = 255 Index = 4 Left = 120 TabIndex = 6 Top = 600 Width = 255 End Begin Label Label1 Caption = "11" Height = 255 Index = 14 Left = 3120 TabIndex = 16 Top = 240 Width = 255 End Begin Label Label1 Caption = "1" Height = 255 Index = 0 Left = 120 TabIndex = 0 Top = 240 Width = 255 End Sub ClrBtn_Click () For i = 0 To 19 Hazards(i).Text = "" ToRooms(i).Text = "" Next i ToRooms(0).SetFocus End Sub Sub QuitBtn_Click () End End Sub